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Rogalgol integer subset compiler . 

1. General considerations. 

This compiler is used as a tool to implement the full Rogalgol compiler. 

The integer subset compiler is written in its own language, so the restrictions 
mentioned hereafter apply to the text of the integer subset compiler also. 

The full and subset compiler use the same interpretive codes and nearly 
the same interpreter. 

2. Restrictions to Algol-60. 

1. No nested procedure declarations. 

2. No deallocation of storage for arrays: 
arrays must be declared only global. 

3. Arrays are one-dimensional only. 

4. Block leaving jumps do not clean the stacks. 

5. No own variables. o 

6. No real variables. 

7. No switches nor designatonial expressions. o 

8. Procedure parameters must be simple Boolean or integer variables and 

may be called by value only. , o 

9. The controlled variable in a for statement must be insubscripted. 

10. The only permissable form of a for statement is: for = lc step e until 
m do. 

11. No multiple assignments. o 

12. Only 6 characters of an identifier are significant. o 

Some of these restrictions (labelled with o) apply also to the full 
Rogalgol compiler. 

A further remark has to be made about actual parameters of procedures. The 
compiler must be able to determine the type of the actual parameter. When 
a procedure has a formal boolean parameter, the actual parameter might be 
a relational expression (e.g. 10> a). The compiler, however, first encounters 
the "10" which is an arithmetic expression and assumes that the further 
expression will be of type arithmetic also. Therefore it is necessary to 
inform the compiler beforehand about the type of the actual parameter: this 
can be done by prefixing the relational expression with false or. 
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i s global to the procedure, it is addressed relative to the global base 
(- 20); if the variable is local to the procedure it is addressed relative 
to the local base (=22). As a few variables are reserved for saving status 
information (variable o = old local base, variable 1 = return address, 
variable 2 not used in the integer compiler but used in the full compiler 
for the blocklevel, variable 3 = procedure value) the maximum number of 
local variables in a procedure is 60. 

During a procedure call the stack will show the following picture 

local N free space pointer (= 23) 

local variables of procedure 

local 1 
parameter N 

parameters of procedure 

parameter 1 
proc. value 
not used 
return address 

old value of 22 local base (= 22) 

s amount of space required by main program 

(value of 21) 

global base (= 20) 


direction 

of 

stackgrowth 

(ascending 

address) 


The bottom of the array stack is initialized 1200 words ahead of the bottom 
of the variable stack. When an array is declared, the space required for 

the elements of the array is taken off this stack by shifting up the array 
base. 

The expression stack is initialized at the same address as the array stack. 

but this one grows downwards to lower addresses. Its stack pointer is in 
address 30. 
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The lay-out of field 0 is: (Field 1 is used entirely for interpretive code) 


0 

coding of 
interpreter 


6600 7200 


2200 3400 

variable 
stack 
global 
base 


output input 7600 07777 

array buffers monitor 

storage 

array 

base 


4. The interpretive codes. 

The interpreter is able to interprete the following codes. 

Non-implement codes stop the interpreter, print + and wait for +P or 1C. 

Tos refers to the top of the expression stack where all arithmetic is done. 


Octal Decimal 
0 0 

1 1 



6 

7 

10 
1 1 
12 

13 

14 


6 

7 

8 

9 

10 
1 1 
12 


15 

16 
17 
20 
21 


22 


13 

14 

15 

16 

17 

18 


Purpose + interface 
No operation 

declare array: on expr.stack: nr of decl., offset of 
array variable, lower + upperbound 
select device: device nr: = tos 

read : put signed integer from device on tos 

store to local var, offset in next 6 bits (relative to 

22 ) 

print string: print following 6 bit codes as chars on 
dev, term, by 00 

print : print tos as signed integer on dev. 

chin : get next char dev, put it on tos 

chout : put tos as char on dev. 

jump : jump to location (12 bits) in next word 

exit : leave procedure body 

enter : enter procedure with no parameters 

get value of local variable, offset in next 6 bits 

(rel to 22) 

add 

get value of arrayel: base add of array, index on expr.stack 
store to arrayel 
set tos to 12 bit constant 
make tos: = - 
unused 


tos 
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23 

19 

multiply all arithmetic, boolean + rel. operators 

24 

20 

divide operate on top elements of expression 

25 

21 

substract stack and leave their result there 

26 

22 

equal 

27 

23 

not equal 

30 

24 

less than 

31 

25 

greater than 

32 

26 

greater or equals 

33 

27 

less or equals 

34 

28 

jump if false: lump to loc in next 12 bits if tos =false 

35 

29 

set tos zero 

36 

30 

not: make tos: = not tos 

37 

31 

and 

40 

32 

or 

41 

33 

initialize interpreter: reset PC + local base 

0 if global 

42 

34 

for statement: final values, increment, 1 if local contr 

var., address of var. 

43 

35 

enter proc. with 1 param. 

44 

36 

enter proc. with tos = nr. of param. 

45 

37 

store tos in global variable, offset to global base in 
next 6 bits 

46 

38 

get value of global variable relative to 20 

47 

39 

disk:initialize in + output files 

50 

40 

skip : put CRLF to device 

51 

41 

skip next code 

52 

42 

get next 6 bits to tos as constant 

53 

43 

enter procedure with 1 parameters 

54 

44 

2 

55 

45 

3 

56 

46 

4 

57 

47 

not used, stop interpreter, print f 

77 

63 

and wait for IP, 1C. 

The codes 

used 

internally in the compiler to represent the basic symbols are 

the same 

as in 

the full compiler. 
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6. Extensions to Algol-60. 

The integer subset compiler accepts as alternatives to 
the < repeatable statement > also 

while < boolean expression > do_ < statement > 

and 

do < statement > until < boolean expression s 

this latter statement implies that comment after end is slipped up 
to ; end else until 

no special codes are generated for these statements, so no extensions 
were necessary in the interpreter. 

Disk (1) initializes the interpreter for disk input by fetching the 
sys device handler and look up of 3INALG.AL. 

Disk (2) initializes for output by opening a tentative output file 
30UTAL.PA., 

1Z terminates the transfer when doing output: the output file is closed 
and made permanent. If no fZ is found, the contents of the output file are 
lost. Transfer on input is terminated when encountering EOF on the input 
file. Further reading produces ? 1725 

7. Directions for use. 

The integer subset compiler is generally present as a save file on the 
device: name is INTALG.SV 
It can be run by typing 
^ R INTALG 

the compiler identifies itself and asks for output device. If the answer 

is > 10, each time an identifier is encountered 

its name, offset and type will be printed out on the tty. 

As usual 1 means tty, 2 hsp and 3 system device. 

The name of the output file will always be 30UTAL.PA. Then the compiler 
asks for input device: 1 = tty, 2 hsr and 3 = system device. The input 
file name is always 3 INALG.AL. If this file cannot be found on the system 
device 71634 will be issued,The compilation starts. When the message END 
OF COMPILATION is printed, the resulting output file must be assembled 
with PAL8 to produce a binary file. This binary file can be loaded by 
ABSLDR together with the binary code of the interpreter to yield a complete 
program. Possibly the EAE overlay is used also. In this way the compiler 
itself can also be compiled. 

This can be represented schematically: 












The interpreter and EAE overlay are normal PAL programs, which can be assembled 
using PAL8. 


8. Error messages. 

The compiler generates error messages in the form FAIL <error number > LINE 
< line number > IDENT < last used identifier > 

Caution : the compiler is not very careful when issuing error messages, the 
real error can be in an other part of the program. Check especially if all 
worddelimeters are delimited by two T * When an error is encountered 
generation of code is stopped and the contents of the output file are lost. 


Error number 
1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 
17 


Description 

identifier declared twice in the same block 

undeclared identifier 

missing after array identifier 

missing after subscript list 

more than 63 variables in procedure 

no $ after final end 

else expected in arithmetic expression 
else expected in boolean expression 
Relational operator expected 
arithmetic primary cannot start with this 
integer divide does not have 2 integer operands 
) missing in arithmetic expression 

Controlled var. in for stmt is undeclared or subsc. 
) missing in boolean expression 
Too many identifiers in scope at once 
No end after block 

Undeclared identifier ii\ left part of assignment 


Issuer 

sid 

subscript 

subscript 


Ae 

Be 

Re 

Aprime 

Aterm 

Aprime 

Statement 

Bprint 

Sid 

Statement 

Assignment 
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Error number 

Description 

Issuer 

18 

Error in declaration of array 

Darr 

19 

Identifier does not start with letter 

Ident 

20 

Not assigned error number 


21 

Actual parameter list not closed by ) 

Pcall 

22 

do missing in for statement 

Statement 

23 

no; after procedure body 

Dproc 

24 

:= expected 

Assignment 

25 

then expected 

Ifclause 

26 

not assigned error number 


27 

preliminary $ in input file 

IN6 

28 

not assigned error number 


29 

unspecified parameter 

Pcall 

30 

Too many forward references 

Sfr. Dlab 

31 

not assigned error number 


32 

formal parameter list does not start with ( 

Pcall 

33 

do expected after while 

Statement 

34 

until expected 

Statement 

40 

error in specification of parameter 


43 

no; after formal parameter specification 

Dproc 

the interpreter 

can also generate error messages. 


These are fatal 

: the execution is stopped. 


70764 

no "exit interpreter" allowed 


71313 

illegal device on input 


71331 

illegal device on output 


71616 

error while fetch-ing system device handler 


71634 

input file 3INALG.AL missing 


71650 

no room available for output 


71746 

error while reading input file 


72033 

error while writing output file 


72124 

error while closing output file 


71725 

attempt to read beyond EOF on input file 



c 
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9. Some instruction times. 

Assuming 1.5 ysec memory cycle time, the following times were counted: 

fetch of an interpretive code: av. 28.5 ysec 
putting aresulton the expression stack: 12.0 ysec 
fetch of a 6-bit code (constant or offset): 27.0 ysec 
fetch of a simple variable : 81.0 ysec 
procedure call + return (no parameters): 148 ysec 
jump : 43.5 ysec 

fetch of an array element : 44.0 ysec 












